home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Superbase 4 ser 12C00584^1.adf
/
Trading
/
STKFO.SBP
< prev
next >
Wrap
Text File
|
1991-03-13
|
3KB
|
175 lines
SBP
ÿ½ STKFO
ÿ½ Maintain Countries/Currencies
ÿ½ Last updated Feb 04, 91
ÿ½ ON ERROR GOTO ferror
stkfo:ÿ½ Assign function parameters
cou%ÿ3:cur%ÿ4
ÿÉÿæmb%
ÿæcou%
f$ÿ"country":fkey$ÿ"Name.COUNTRY":fmd$ÿ"stko":fmp$ÿ"stko2"
ffld%ÿ4
ÿæcur%
f$ÿ"currency":fkey$ÿ"Currency.CURRENCY":fmd$ÿ"stku":fmp$ÿ"stku2"
ffld%ÿ6
ÿÿÉ
frow%ÿ10:fst%ÿ0:ÿ´ÿfmd$
floop:ÿ½ Display from first record
ÿvslimits
ckey$ÿfstk$
ÿwfform
fpage:ÿ½ Re-display page
ÿvslimits
ckey$ÿpstk$(1)
fform:ÿ½ Display from ckey$
ÿvspage
ÿ¡fst%ÿpÿ
fst%ÿ1
fwait:ÿ½ Wait here for a push button
mp%ÿ0
ÿÊÿËss13$
ÿÏÿß
ÿ½ blank line
ÿ½ Edit line
ÿ¡(mp%ÿ0ÿmp%ÿlrec%)ÿpÿwfwait
ÿÊÿËss4$
ÿÉÿÿ"mp%
fnd%ÿ0
ckey$ÿfkey$$
ÿßÿ³
ÿ¡mb%ÿcur%ÿpÿCurrency ÿ"mp%
ÿ¡mb%ÿcou%ÿpÿName ÿ"mp%,ffld%
ÿ¡(mb%ÿcou%ÿName.COUNTRYÿckey$)ÿ(mb%ÿcur%ÿCurrency.CURRENCYÿckey$)ÿp
skey$ÿfkey$$
ÿvsinteg
ÿ¡fnd%ÿ0ÿpÿÉÿÿ"mp%:fkey$$ÿskey$
ÿÿ¡
ÿ¡fnd%ÿ0ÿp
ÿ¡mb%ÿcur%ÿp
ÿÊÿËss4$
ÿDescription ÿ"mp%,ffld%ÿ1
ÿÿ¡
ÿÂms1$,"",127,b%
ÿ¡b%ÿ1ÿpÿÌ
ÿÿ¡
ÿwfpage
fenter: ÿ½ Enter new records
ÿÿ
ÿÎ
ÿÊÿËss3$
ÿßÿ³
mp%ÿ1
fenter2:
ÿ(mp%ÿ1)ÿffld%ÿ1,ffld%
ÿÂms1$,"",127,a%
ÿ¡a%ÿ1ÿpÿÌ:mp%ÿmp%ÿ1
ÿÂms2$,"",130,a%
ÿ¡a%ÿ0ÿpÿwfloop
ÿ¡mp%ÿ frow%ÿpÿwfenter2 ÿ^ÿwfenter
fdelete: ÿ½ Delete record
ÿÊÿËss12$
ÿÏÿß
ÿÉÿÿ"mp%
ckey$ÿfkey$$
fnd%ÿ0
ÿvsinteg
ÿ¡fnd%ÿ0ÿp
ÿÂms14$ÿckey$,"",119,a%
ÿ¡a%ÿp
ÿÉÿÿ"mp%
ÿÉÿ¥ckey$
ÿÉÿ¾
ÿÿ¡
ÿÿ¡
ÿwfpage
fnext:ÿ½ Next page
ÿ¡lstk$ÿpstk$(lrec%)ÿpÿwfwait
ÿÉÿ¥pstk$(lrec%)
ÿÉÿ±
ÿwfcurr
fprev:ÿ½ Prev page
ÿ¡fstk$ÿpstk$(1)ÿpÿwfwait
ÿÉÿ¥pstk$(1)
ÿi%ÿ1ÿqfrow%
ÿÉÿg
ÿ±i%
fcurr:ÿ½ Assign ckey
ckey$ÿfkey$$
ÿwfform
fexit:ÿ½ Exit
ÿ"menu"
fprint: ÿ½ Print
ÿ´ÿfmp$
ÿ¹ÿY
ÿ´ÿfmd$
ÿwfform
slimits: ÿ½ fkey$$ gets the contents of the field named by fkey$
ÿÉÿb
lstk$ÿfkey$$
ÿÉÿ`
fstk$ÿfkey$$
ÿÃ
spage:ÿ½ Displays page of records starting with ckey$
ÿ½ Returns key array and number of records for page
ÿÿ
ÿÉÿ¥ckey$
j%ÿ0
ÿi%ÿ1ÿqfrow%
ÿÍÿÿ"i%
j%ÿj%ÿ1
pstk$(i%)ÿfkey$$
ÿ¡fkey$$ÿlstk$ÿpi%ÿfrow%
ÿ¡i%ÿ
frow%ÿpÿÉÿ±
ÿ±i%
ÿ¡j%ÿfrow%ÿplrec%ÿfrow%ÿ^lrec%ÿj%
ÿÃ
sinteg:ÿ½ check not in use by clients or stocks
ÿÊÿËss16$
ÿ¡mb%ÿcou%ÿp
ÿ"clients"
ÿ£f$
ÿÉÿ¥ckey$
ÿ¡ÿC("")ÿpÿÂms25$,ckey$ÿ" referenced by clients file",100,a%:fnd%ÿ1
ÿÿ¡
ÿ"stocks"
ÿ£f$
ÿÉÿ¥ckey$
ÿ¡ÿC("")ÿpÿÂms25$,ckey$ÿ" referenced by stocks file",100,a%:fnd%ÿ1
ÿf$
ÿÃ
ferror:ÿ½ Error conditions
res%ÿ0
ÿ¡ÿ&ÿ11ÿp
ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
ÿ^ÿ¡ÿ&ÿ57ÿp
ÿÂms8$,"",2,a%:res%ÿ2
ÿ^
ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
ÿÿ¡
ÿ¡res%ÿ1ÿpÿy
ÿ¡res%ÿ2ÿpÿyfloop
ÿ¡res%ÿ3ÿpÿyfwait
ÿ